﻿Imports DevComponents.DotNetBar
Imports quanlydulich.Helpers

Public Class THONGKEKHACHHANG
    Inherits Office2007Form

    Private Sub btnThongKe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThongKe.Click
        If dtNgayBD.Value = DateTime.MinValue Then
            MessageBox.Show("Vui lòng nhập ngày BĐ")
            Return
        End If
        If dtNgayKT.Value = DateTime.MinValue Then
            MessageBox.Show("Vui lòng nhập ngày KT")
            Return
        End If

        Dim objBUS As TOURBUS = New TOURBUS(GlobalVars.g_strConnectionString)
        Dim objDS As DataSet = objBUS.ThongKeKhachHang(dtNgayBD.Value, dtNgayKT.Value)

        Dim frm As FrmPrintKhachHang = New FrmPrintKhachHang
        frm.objDS = objDS
        frm.dtNgayBD = dtNgayBD.Value
        frm.dtNgayKT = dtNgayKT.Value
        frm.ShowDialog()
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Close()
    End Sub
End Class